home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / U-Z / WindowScript™.Demo / WindowScript™ 1.0 Working Model / WindowScript™ 1.0 Working Model.rsrc / LENS_142_ObjectMaster.txt < prev    next >
Encoding:
Text File  |  1992-04-29  |  12.9 KB  |  200 lines
  1. # (decoded with TMPL 129)
  2. ItemType: WIND
  3. Rect: 145,134,285,158
  4. Style: Windoid
  5. HasTitleBar: FALSE
  6. HasZoomBox: FALSE
  7. HasCloseBox: TRUE
  8. HasGrowBox: FALSE
  9. MinSize: 140,24
  10. MaxSize: 305,187
  11. Name: ObjectMaster
  12. TextFont: Geneva
  13. TextSize: 9
  14.  
  15. ItemType: CNTL
  16. Rect: 4,6,72,19
  17. TextFont: Chicago
  18. TextSize: 10
  19. Name: Buttons
  20. Style: 480
  21. Min: 0
  22. Max: 100
  23. Value: 0
  24. Step: 1
  25. Leap: 10
  26. Script: if objValue is true then¬¨  wsSet wdID,objNo,"HILITE",false¬¨  wsSend wdID,"ZOOMIN"¬¨else¬¨  set cursor to watch¬¨  wsSet wdID,objNo,"HILITE",true¬¨  wsSet wdID,2,"HILITE",false¬¨  put empty into btnText¬¨  repeat with x = 1 to number of cd btns¬¨    get name of cd btn x¬¨    put "cd btn" into word 1 to 2 of it¬¨    put it & numtochar(194) after btnText¬¨  end repeat¬¨  repeat with x = 1 to number of bg btns¬¨    get name of bg btn x¬¨    put "bg btn" into word 1 to 2 of it¬¨    put it & numtochar(194) after btnText¬¨  end repeat¬¨  ¬¨  put "btnList_TEXT:"&btnText&return into toSet¬¨  put "i23_Visible:FALSE"&return after toSet¬¨  put "i24_Visible:FALSE"&return after toSet¬¨  put "i25_Visible:FALSE"&return after toSet¬¨  put "i26_Visible:FALSE"&return after toSet¬¨  put "i27_Visible:FALSE"&return after toSet¬¨  put "i28_Visible:FALSE"&return after toSet¬¨  put "i29_Visible:FALSE"&return after toSet¬¨  put "i30_Visible:FALSE"&return after toSet¬¨  put "i13_Disabled:FALSE"&return after toSet¬¨  put "i14_Disabled:FALSE"&return after toSet¬¨  put "i5_Visible:TRUE"&return after toSet¬¨  put "i6_Visible:TRUE"&return after toSet¬¨  put "i7_Visible:TRUE"&return after toSet¬¨  put "xObjType: BTN"&return after toSet¬¨  put "i12_NAME: RoundRect"&return after toSet¬¨  put "i0_ZOOMOUT"&return after toSet¬¨  ¬¨  put "Name_TEXT:"&return after toSet¬¨  put "Visible_HILITE: TRUE"&RETURN after toSet¬¨  put "Show Name_Hilite: FALSE"&return after toSet¬¨  put "Auto Hilite_HILITE:FALSE"&return after toSet¬¨  put "Shared Hilite_HILITE:FALSE"&return after toSet¬¨  put "Transparent_Hilite:TRUE"&return after toSet¬¨  put "Transparent_Hilite:FALSE"&return after toSet¬¨  put "TOP_TEXT:"&return&"LEFT_TEXT:"&return after toSet¬¨  put "HEIGHT_TEXT:"&return&"WIDTH_TEXT:"&return after toSet¬¨  ¬¨  set Properties of window wdName to toSet¬¨  ¬¨end if
  27.  
  28. ItemType: CNTL
  29. Rect: 76,6,136,19
  30. TextFont: Chicago
  31. TextSize: 10
  32. Name: Fields
  33. Style: 480
  34. Min: 0
  35. Max: 100
  36. Value: 0
  37. Step: 1
  38. Leap: 10
  39. Script: if objValue is true then¬¨  wsSet wdID,objNo,"HILITE",false¬¨  wsSend wdID,"ZOOMIN"¬¨else¬¨  set cursor to watch¬¨  wsSet wdID,objNo,"HILITE",true¬¨  wsSet wdID,1,"HILITE",false¬¨  put empty into fldText¬¨  repeat with x = 1 to number of cd flds¬¨    get name of cd fld x¬¨    put "cd fld" into word 1 to 2 of it¬¨    put it & numtochar(194) after fldText¬¨  end repeat¬¨  repeat with x = 1 to number of bg flds¬¨    get name of bg fld x¬¨    put "bg fld" into word 1 to 2 of it¬¨    put it & numtochar(194) after fldText¬¨  end repeat¬¨  ¬¨  put "btnList_TEXT: "&fldText&return into toSet¬¨  put "i23_Visible:TRUE"&return after toSet¬¨  put "i24_Visible:TRUE"&return after toSet¬¨  put "i25_Visible:TRUE"&return after toSet¬¨  put "i26_Visible:TRUE"&return after toSet¬¨  put "i27_Visible:TRUE"&return after toSet¬¨  put "i28_Visible:TRUE"&return after toSet¬¨  put "i29_Visible:TRUE"&return after toSet¬¨  put "i30_Visible:TRUE"&return after toSet¬¨  put "i13_Disabled:TRUE"&return after toSet¬¨  put "i14_Disabled:TRUE"&return after toSet¬¨  put "i5_Visible:FALSE"&return after toSet¬¨  put "i6_Visible:FALSE"&return after toSet¬¨  put "i7_Visible:FALSE"&return after toSet¬¨  put "xObjType: FLD"&return after toSet¬¨  put "i12_NAME: Scrolling"&return after toSet¬¨  put "i0_ZOOMOUT" after toSet¬¨  ¬¨  set properties of window wdName to toSet¬¨end if
  40.  
  41. ItemType: LIST
  42. Rect: 4,24,136,182
  43. Name: BtnList
  44. Text: 
  45. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨set cursor to watch¬¨put empty into toSet¬¨if number of items in objValue = 1 then¬¨  put BtnList_SelectionText of window wdName into o¬¨  do "Get short name of o"¬¨  if word 2 to 3 of it ="button id" then get empty¬¨  put "Name_TEXT:"&&it&return after toSet¬¨  do "Get visible of o"¬¨  put "Visible_HILITE:"&&it&return after toSet¬¨  if xObjType of window wdName = "BTN" then¬¨    do "Get showname of o"¬¨    put "Show Name_HILITE:"&&it&return after toSet¬¨    do "Get autohilite of o"¬¨    put "Auto Hilite_HILITE:"&&it&return after toSet¬¨    if word 1 of o = "bg" ¬¨    then do "get sharedHilite of o" else get false¬¨    put "Shared Hilite_HILITE:"&&it&return after toSet¬¨  else¬¨    do "Get lockText of o"¬¨    put "Lock Text_HILITE:"&&it&return after toSet¬¨    do "Get ShowLines of o"¬¨    put "Show Lines_HILITE:"&&it&return after toSet¬¨    do "Get WideMargins of o"¬¨    put "Wide Margins_HILITE:"&&it&return after toSet¬¨    do "Get AutoTab of o"¬¨    put "Auto Tab_HILITE:"&&it&return after toSet¬¨    do "Get FixedLineHeight of o"¬¨    put "Fixed Line Height_HILITE:"&&it&return after toSet¬¨    do "Get DontWrap of o"¬¨    put "Don't Wrap_HILITE:"&&it&return after toSet¬¨    do "Get DontSearch of o"¬¨    put "Dont't Search_HILITE:"&&it&return after toSet¬¨    if word 1 of o = "bg" ¬¨    then do "get sharedText of o" else get false¬¨    put "Shared Text_HILITE:"&&it&return after toSet¬¨  end if¬¨  do "Get style of o"¬¨  put it&"_HILITE:TRUE"&return after toSet¬¨  do "Get rect of o"¬¨  put "TOP_TEXT:"&&item 2 of it&return after toSet¬¨  put "LEFT_TEXT:"&&item 1 of it&return after toSet¬¨  put "HEIGHT_TEXT:"&&(item 4 of it)-(item 2 of it)&return after toSet¬¨  put "WIDTH_TEXT:"&&(item 3 of it)-(item 1 of it)&return after toSet¬¨else¬¨  put "Name_TEXT:"&return after toSet¬¨  put "Visible_HILITE: TRUE"&RETURN after toSet¬¨  ¬¨  if xObjType of window wdName = "BTN" then¬¨    put "Show Name_Hilite: FALSE"&return after toSet¬¨    put "Auto Hilite_HILITE:FALSE"&return after toSet¬¨    put "Shared Hilite_HILITE:FALSE"&return after toSet¬¨  else¬¨    put "Lock text_Hilite: FALSE"&return after toSet¬¨    put "Show Lines_HILITE:FALSE"&return after toSet¬¨    put "Wide Margins_HILITE:FALSE"&return after toSet¬¨    put "Auto Tab_HILITE:FALSE"&return after toSet¬¨    put "Fixed Line Height_HILITE:FALSE"&return after toSet¬¨    put "Don't Wrap_HILITE:FALSE"&return after toSet¬¨    put "Don't Search_HILITE:FALSE"&return after toSet¬¨    put "Shared Text_HILITE:FALSE"&return after toSet¬¨  end if¬¨  put "Transparent_Hilite:TRUE"&return after toSet¬¨  put "Transparent_Hilite:FALSE"&return after toSet¬¨  put "TOP_TEXT:"&return&"LEFT_TEXT:"&return after toSet¬¨  put "HEIGHT_TEXT:"&return&"WIDTH_TEXT:"&return after toSet¬¨end if¬¨set Properties of window wdName to toSet¬¨¬¨--end mouseUp
  46.  
  47. ItemType: CHK
  48. Rect: 254,6,308,18
  49. Name: Visible
  50. Hilite: TRUE
  51. Script: put BtnList_SelectionText of window wdName into ol¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  do "set visible of o to objValue"¬¨end repeat¬¨
  52.  
  53. ItemType: CHK
  54. Rect: 142,23,220,36
  55. Name: Show Name
  56. Script: put BtnList_SelectionText of window wdName into ol¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  do "set showname of o to objValue"¬¨end repeat¬¨
  57.  
  58. ItemType: CHK
  59. Rect: 142,36,218,49
  60. Name: Auto Hilite
  61. Script: put BtnList_SelectionText of window wdName into ol¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  do "set autohilite of o to objValue"¬¨end repeat¬¨
  62.  
  63. ItemType: CHK
  64. Rect: 142,49,230,62
  65. Name: Shared Hilite
  66. Script: put BtnList_SelectionText of window wdName into ol¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  if word 1 of o = "bg" then do "set sharedhilite of o to objValue"¬¨end repeat¬¨
  67.  
  68. ItemType: RAD
  69. Rect: 149,96,233,109
  70. Name: Transparent
  71. Script: put BtnList_SelectionText of window wdName into ol¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  do "set style of o to objName"¬¨end repeat¬¨
  72.  
  73. ItemType: RAD
  74. Rect: 149,109,206,122
  75. Name: Opaque
  76. Script: put BtnList_SelectionText of window wdName into ol¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  do "set style of o to objName"¬¨end repeat¬¨
  77.  
  78. ItemType: RAD
  79. Rect: 149,122,219,135
  80. Name: Rectangle
  81. Script: put BtnList_SelectionText of window wdName into ol¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  do "set style of o to objName"¬¨end repeat¬¨
  82.  
  83. ItemType: RAD
  84. Rect: 149,135,208,148
  85. Name: Shadow
  86. Script: put BtnList_SelectionText of window wdName into ol¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  do "set style of o to objName"¬¨end repeat¬¨
  87.  
  88. ItemType: RAD
  89. Rect: 219,109,289,121
  90. Name: RoundRect
  91. Script: put BtnList_SelectionText of window wdName into ol¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  do "set style of o to objName"¬¨end repeat¬¨
  92.  
  93. ItemType: RAD
  94. Rect: 219,122,301,135
  95. Name: RadioButton
  96. Script: put BtnList_SelectionText of window wdName into ol¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  do "set style of o to objName"¬¨end repeat¬¨
  97.  
  98. ItemType: RAD
  99. Rect: 219,135,288,148
  100. Name: Checkbox
  101. Script: put BtnList_SelectionText of window wdName into ol¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  do "set style of o to objName"¬¨end repeat¬¨
  102.  
  103. ItemType: BOX
  104. Rect: 144,85,301,152
  105. Name: Style
  106.  
  107. ItemType: LBL
  108. Rect: 144,4,172,16
  109. Visible: FALSE
  110. Text: Name
  111.  
  112. ItemType: TEXT
  113. Rect: 144,4,253,20
  114. Name: Name
  115. LockText: FALSE
  116. Script: put BtnList_SelectionText of window wdName into ol¬¨put empty into newNames¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  do "set name of o to objValue"¬¨  put (word 1 to 2 of ol) && quote&objValue"e&return after newNames¬¨end repeat¬¨set btnList_TextOfSelection of window wdName to newNames¬¨
  117.  
  118. ItemType: LBL
  119. Rect: 147,155,298,167
  120. Text: ¬†Top¬†¬†¬†¬†Left¬†¬†¬†Height¬†¬†Width
  121.  
  122. ItemType: TEXT
  123. Rect: 144,166,182,182
  124. Name: Top
  125. LockText: FALSE
  126. TextAlign: Center
  127. KeyFilter: OnlyDigits
  128. Script: if objValue is not empty then¬¨  put BtnList_SelectionText of window wdName into ol¬¨  repeat with x = 1 to number of lines in ol¬¨    put line x of ol into o¬¨    do "set top of o to objValue"¬¨  end repeat¬¨end if
  129.  
  130. ItemType: TEXT
  131. Rect: 183,166,221,182
  132. Name: Left
  133. LockText: FALSE
  134. TextAlign: Center
  135. KeyFilter: OnlyDigits
  136. Script: if objValue is not empty then¬¨  put BtnList_SelectionText of window wdName into ol¬¨  repeat with x = 1 to number of lines in ol¬¨    put line x of ol into o¬¨    do "set LEFT of o to objValue"¬¨  end repeat¬¨end if
  137.  
  138. ItemType: TEXT
  139. Rect: 222,166,260,182
  140. Name: Height
  141. LockText: FALSE
  142. TextAlign: Center
  143. KeyFilter: OnlyDigits
  144. Script: if objValue is not empty then¬¨  put BtnList_SelectionText of window wdName into ol¬¨  repeat with x = 1 to number of lines in ol¬¨    put line x of ol into o¬¨    do "set HEIGHT of o to objValue"¬¨  end repeat¬¨end if
  145.  
  146. ItemType: TEXT
  147. Rect: 261,166,301,182
  148. Name: Width
  149. LockText: FALSE
  150. TextAlign: Center
  151. KeyFilter: OnlyDigits
  152. Script: if objValue is not empty then¬¨  put BtnList_SelectionText of window wdName into ol¬¨  repeat with x = 1 to number of lines in ol¬¨    put line x of ol into o¬¨    do "set WIDTH of o to objValue"¬¨  end repeat¬¨end if
  153.  
  154. ItemType: CHK
  155. Rect: 142,24,210,36
  156. Visible: FALSE
  157. Name: Lock Text
  158. Script: put BtnList_SelectionText of window wdName into ol¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  do "set lockText of o to objValue"¬¨end repeat¬¨
  159.  
  160. ItemType: CHK
  161. Rect: 142,37,216,49
  162. Visible: FALSE
  163. Name: Show Lines
  164. Script: put BtnList_SelectionText of window wdName into ol¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  do "set showLines of o to objValue"¬¨end repeat¬¨
  165.  
  166. ItemType: CHK
  167. Rect: 142,50,226,62
  168. Visible: FALSE
  169. Name: Wide Margins
  170. Script: put BtnList_SelectionText of window wdName into ol¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  do "set wideMargins of o to objValue"¬¨end repeat¬¨
  171.  
  172. ItemType: CHK
  173. Rect: 142,63,206,75
  174. Visible: FALSE
  175. Name: Auto Tab
  176. Script: put BtnList_SelectionText of window wdName into ol¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  do "set autotab of o to objValue"¬¨end repeat¬¨
  177.  
  178. ItemType: CHK
  179. Rect: 219,24,305,36
  180. Visible: FALSE
  181. Name: Fixed Line H‚Ķ
  182. Script: put BtnList_SelectionText of window wdName into ol¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  do "set fixedlineheight of o to objValue"¬¨end repeat¬¨
  183.  
  184. ItemType: CHK
  185. Rect: 219,37,292,49
  186. Visible: FALSE
  187. Name: Don't Wrap
  188. Script: put BtnList_SelectionText of window wdName into ol¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  do "set dontwrap of o to objValue"¬¨end repeat¬¨
  189.  
  190. ItemType: CHK
  191. Rect: 219,50,300,62
  192. Visible: FALSE
  193. Name: Don't Search
  194. Script: put BtnList_SelectionText of window wdName into ol¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  do "set dontsearch of o to objValue"¬¨end repeat¬¨
  195.  
  196. ItemType: CHK
  197. Rect: 219,63,298,75
  198. Visible: FALSE
  199. Name: Shared Text
  200. Script: put BtnList_SelectionText of window wdName into ol¬¨repeat with x = 1 to number of lines in ol¬¨  put line x of ol into o¬¨  if word 1 of o = "bg" then do "set sharedtext of o to objValue"¬¨end repeat¬¨